f <- function() { 

a <- 1
a[c("a", "b", "c")] <- c(42, 43, 12)
a

}

f()
